perm filename ALTST.SEX[HAL,HE] blob sn#236316 filedate 1976-09-15 generic text, type T, neo UTF8
(PR
  (BL
    (SVAR I J)
    (AS J
       3.000000    
    )
    (AS I
       1.000000    
    )
    (WH
      (AND (SLT I  10.00000    ) (SNE J  2.000000    ))
      (BL
        (PRINT 
          "I="
          I
          " "
        )
        (AS I
          (SADD  1.000000     I)
        )
      )
    )
  )
)